home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE07 / YAST / TRACETST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-01-04  |  646 b   |  58 lines
  1. unit TraceTst;
  2.  
  3. interface
  4.  
  5. procedure TraceTest;
  6.  
  7. implementation
  8.  
  9. uses
  10.   YAST,
  11.   ExTrace;
  12.  
  13. {$F+}
  14.  
  15. procedure Level3a(A, B: word);
  16. var
  17.   C: word;
  18.   FirstFlag: boolean;
  19. begin
  20.   C := A+B;
  21.   FirstFlag := true;
  22.   TraceStack(ExampleReportStackFrame, @FirstFlag);
  23. end;
  24.  
  25. procedure Level3b(A, B: word);
  26. var
  27.   C: word;
  28. begin
  29.   C := A+B;
  30.   Level3a(6, 7);
  31. end;
  32.  
  33. procedure Level3c(A, B: word);
  34. var
  35.   C: word;
  36. begin
  37.   C := A+B;
  38.   Level3b(4, 5);
  39. end;
  40.  
  41. procedure Level2(A: word); near;
  42. begin
  43.   Level3c(2, 3);
  44. end;
  45.  
  46. procedure Level1;
  47. begin
  48.   Level2(1);
  49. end;
  50.  
  51. procedure TraceTest;
  52. begin
  53.   Level1;
  54. end;
  55.  
  56. end.
  57.  
  58.